home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macQuickdrawConst.sim < prev    next >
Encoding:
Text File  |  1989-05-01  |  2.0 KB  |  81 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MacQuickdrawConst.sim
  3. % 
  4. % Part of the interface to Macintosh Toolbox
  5. % This file contains the constant definitions from Quickdraw.p
  6. % it is used as parameters to Toolbox routines of Quickdraw.
  7. %
  8. % 890409/Boris Magnusson
  9. % ---------------------------------------------------------------------------
  10. class MacQuickdrawConst;
  11. begin
  12. short integer
  13. ! the 16 transfer modes ;
  14.     srcCopy        = 0, 
  15.     srcOr         = 1,
  16.     srcXor        = 2,
  17.     srcBic        = 3,
  18.     notSrcCopy    = 4,
  19.     notSrcOr    = 5,
  20.     notSrcXor     = 6,
  21.     notSrcBic     = 7,
  22.     patCopy        = 8,
  23.     patOr         = 9,
  24.     patXor        = 10,
  25.     patBic        = 11,
  26.     notPatCopy    = 12,
  27.     notPatOr    = 13,
  28.     notPatXor     = 14,
  29.     notPatBic     = 15,
  30.     
  31. ! QuickDraw color separation constants ;
  32.  
  33.     normalBit     = 0, ! normal screen mapping ;
  34.     inverseBit    = 1, ! inverse screen mapping ;
  35.     redBit        = 4, ! RGB additive mapping ;
  36.     greenBit    = 3,
  37.     blueBit        = 2,
  38.     cyanBit        = 8, ! CMYBk subtractive mapping ;
  39.     magentaBit    = 7,
  40.     yellowBit     = 6,
  41.     blackBit    = 5,
  42.  
  43.     blackColor    = 33, ! colors expressed in these mappings ;
  44.     whiteColor    = 30,
  45.     redColor    = 205,
  46.     greenColor    = 341,
  47.     blueColor     = 409,
  48.     cyanColor     = 273,
  49.     magentaColor = 137,
  50.     yellowColor    = 69,
  51.  
  52.     picLParen     = 0, ! standard picture comments ;
  53.     picRParen     = 1,
  54.  
  55. ! THE FOLLOWING CONSTANTS WERE ADDED FOR COLOR QUICKDRAW. ;
  56.  
  57. ! VALUES FOR GDType ;
  58.  
  59.     clutType        =    0,                ! 0 if lookup table ;
  60.     fixedType    =    1,                ! 1 if fixed table ;
  61.     directType    =    2,                ! 2 if direct values ;
  62.  
  63. ! BIT ASSIGNMENTS FOR GDFlags ;
  64.  
  65.     gdDevType    =    0,                ! 0 = monochrome, 1 = color ;
  66.     ramInit         =    10,             ! 1 if initialized from 'scrn' resource ;
  67.     mainScreen    =    11,             ! 1 if main screen ;
  68.     allInit         =    12,             ! 1 if all devices initialized ;
  69.     screenDevice=    13,             ! 1 if screen device [not used] ;
  70.     noDriver        =    14,             ! 1 if no driver for this GDevice ;
  71.     screenActive=    15,             ! 1 if in use ;
  72.  
  73.     hiliteBit    =    7,                ! flag bit in HiliteMode (lowMem flag) ;
  74.  
  75.     defQDColors =    127,            ! resource ID of clut for default QDColors ;
  76.  
  77.     invalColReq =    -1;             ! invalid color table request ;
  78.  
  79.  
  80. End --- Mac Quickdraw Const --- ;
  81.